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-- CommanderDefs.Mesa; edited by Sandman, September 30, 1977 1:40 PM 

CommanderDefs: DEFINITIONS « 
BEGIN 

CommandBlock: TYPE » RECORD [ 
name: STRING, 
proc: PROCEDURE, 
nparams: CARDINAL, 
params: ARRAY [0..0) OF CommandParam] ; 

ParamType: TYPE ■ {string, numeric, character, boolean}; 

CommandParam: TYPE = RECORD[type: ParamType, prompt: STRING]; 

CommandBlockHandle: TYPE ■ POINTER TO CommandBlock; 

AddCommand: PROCEDURE [name: STRING, proc: PROCEDURE, numargs: CARDINAL] RETURNS [CommandBlockHandle]; 

Commander: PROGRAM [herald: STRING]; 

END. 


